perm filename NGLIS[MUS,LCS] blob sn#318223 filedate 1977-11-23 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	FUNCTION ZERO(ARRAY Foo)
C00003 ENDMK
C⊗;
FUNCTION ZERO(ARRAY Foo);
  BEGIN VARIABLE Len,I;
   Len←LENGTH(Foo)-1;
   FOR I←0 STEP 1 UNTIL Len DO Foo(I)←0;
  END;

ARRAY DL(4000); VARIABLE /ZD,/INPX; INPX←0;
ZERO(DL);
INSTRUMENT GLIA;
OSCIL[10](P4,10*MAG/P2,P5);
OSCIL((P7-P3)*MAG,MAG/P2,P8);
COSCIL(U1,P3*MAG+U2,P6);<P6 IS TONE COLOR FOR 'GLISS'
ZD←U3;
< PRINT ZD; 
OUTA←OUTA+U3;
ZD←ZDELAY(ZD,3999,DL);
< PRINT ZD;
 OUTA←OUTA+ZD;
END;
ARRAY F3,F10(512);SEG(F10);1 1 0 100;SEG(F3);0 1 1 7 1 90 0 100;
PLAY;GLIA 0  5 C 800 F3 F1 C*2 F10;FINISH;